var a : array [1..2] integer;